home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAMR10S.ZIP / MENU.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-02  |  2KB  |  134 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  TINTEGER005(10,2)
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Gosub LABEL002
  33.     Gosub LABEL003
  34.     Gosub LABEL001
  35.     End
  36.     :LABEL001
  37.     STRING002 = PPEPath() + "group" + String(INTEGER004) + ".cfg"
  38.     INTEGER002 = S2I(ReadLine(STRING002, 1), 10)
  39.     If (INTEGER002 < 1) INTEGER002 = 1
  40.     INTEGER003 = S2I(ReadLine(STRING002, 2), 10)
  41.     If (INTEGER003 < 0) INTEGER003 = 0
  42.     If (INTEGER003 == 0) INTEGER003 = 1 + Random(INTEGER002 - 1)
  43.     STRING003 = ReadLine(STRING002, 2 + INTEGER003)
  44.     If (Exist(PPEPath() + STRING003)) Then
  45.         DispFile PPEPath() + STRING003, 0
  46.     Else
  47.         PrintLn "Not found: ", PPEPath() + STRING003
  48.     Endif
  49.     Return
  50.     :LABEL002
  51.     STRING001 = PPEPath() + "allgroup.cfg"
  52.     INTEGER001 = S2I(ReadLine(STRING001, 1), 10)
  53.     If (INTEGER001 < 1) Then
  54.         INTEGER001 = 1
  55.     ElseIf (INTEGER001 > 10) Then
  56.         INTEGER001 = 10
  57.     Endif
  58.     For INTEGER006 = 1 To INTEGER001
  59.         STRING004 = ReadLine(STRING001, 1 + INTEGER006)
  60.         Tokenize STRING004
  61.         If (TokCount() == 1) Then
  62.             TINTEGER005(INTEGER006, 0) = S2I(GetToken(), 10)
  63.             TINTEGER005(INTEGER006, 1) = TINTEGER005(INTEGER006, 0)
  64.             Continue
  65.         Endif
  66.         TINTEGER005(INTEGER006, 0) = S2I(GetToken(), 10)
  67.         TINTEGER005(INTEGER006, 1) = S2I(GetToken(), 10)
  68.     Next
  69.     Return
  70.     :LABEL003
  71.     GetUser
  72.     For INTEGER006 = 1 To INTEGER001
  73.         If ((U_Sec >= TINTEGER005(INTEGER006, 0)) && (U_Sec <= TINTEGER005(INTEGER006, 1))) Then
  74.             INTEGER004 = INTEGER006
  75.         Endif
  76.     Next
  77.     Return
  78.  
  79. ;------------------------------------------------------------------------------
  80. ;
  81. ; Usage report (before postprocessing)
  82. ;
  83. ; ■ Statements used :
  84. ;
  85. ;    1       End
  86. ;    12      Goto 
  87. ;    21      Let 
  88. ;    1       PrintLn 
  89. ;    10      If 
  90. ;    1       DispFile 
  91. ;    1       GetUser
  92. ;    3       Gosub 
  93. ;    3       Return
  94. ;    1       Tokenize 
  95. ;
  96. ;
  97. ; ■ Functions used :
  98. ;
  99. ;    12      +
  100. ;    1       -
  101. ;    2       ==
  102. ;    5       <
  103. ;    3       <=
  104. ;    1       >
  105. ;    5       >=
  106. ;    7       !
  107. ;    5       &&
  108. ;    2       ||
  109. ;    1       Random()
  110. ;    1       String()
  111. ;    5       PPEPath()
  112. ;    5       ReadLine()
  113. ;    3       GetToken()
  114. ;    1       Exist()
  115. ;    6       S2I()
  116. ;    1       TokCount()
  117. ;
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Analysis flags : No flag
  121. ;
  122. ;------------------------------------------------------------------------------
  123. ;
  124. ; Postprocessing report
  125. ;
  126. ;    2       For/Next
  127. ;    0       While/EndWhile
  128. ;    5       If/Then or If/Then/Else
  129. ;    0       Select Case
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;                 AEGiS Corp - Break the routines, code against the machines!
  133. ;------------------------------------------------------------------------------
  134.